home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / editor / auror300.zip / LONGDATE.AML < prev    next >
Text File  |  1996-07-17  |  1KB  |  35 lines

  1. //--------------------------------------------------------------------
  2. // LONGDATE.AML
  3. // Get Current Date in Long Format, (C) 1993-1996 by nuText Systems
  4. //
  5. // (see Longdate.dox for user help)
  6. //
  7. // This macro displays the current date and time in long format, i.e.
  8. // '2:18pm Friday, December 20, 1996'.
  9. //
  10. // Longdate can be run from an edit window or file manager window. If
  11. // run from an edit window, the user will be prompted to enter the date
  12. // into the edit window text.
  13. //
  14. // This macro calls Cfg\Cfgintnl.x to retrieve the date in international
  15. // format.
  16. //
  17. // Usage:
  18. //
  19. // Select this macro from the Macro List (on the Macro menu), or run it
  20. // from the macro picklist <shift f12>.
  21. //--------------------------------------------------------------------
  22.  
  23. // compile time macros and function definitions
  24. include bootpath "define.aml"
  25.  
  26. // get the long date in international format
  27. datestr = runmacro (bootpath "cfg\\cfgintnl.x") '' 'f'
  28. if wintype? "edit" then
  29.   if (okbox datestr + ":  Enter into text?" "Long Date") == "Ok" then
  30.     write datestr
  31.   end
  32. else
  33.   msgbox datestr "Long Date"
  34. end
  35.